Release 10.1A: OpenEdge Development:
Progress 4GL Reference

SET-POINTER-VALUE statement

Sets a variable of type MEMPTR to the value of a particular memory location.

Note: Does not apply to SpeedScript programming.

Syntax

SET-POINTER-VALUE ( memptr-value ) = memptr-expression

memptr-value

A 32-bit integer that represents a memory location.

memptr-expression

An expression that evaluates to a value of type MEMPTR.

Example

The following example calls a DLL routine that returns a pointer to a structure, extracts an address at byte 5 of the structure, uses SET-POINTER-VALUE to assign the address to a Progress MEMPTR, and displays the character string at the address:

DEFINE VARIABLE person_struct AS MEMPTR. /* pointer to structure */ DEFINE VARIABLE name AS MEMPTR. /* pointer to name */ SET-SIZE(person_struct) = 8. PROCEDURE person_info EXTERNAL "person.dll" PERSISTENT: DEFINE OUTPUT PARAMETER person_struct AS MEMPTR. END PROCEDURE. RUN person_info(OUTPUT person_struct). SET-POINTER-VALUE(name) = GET-LONG(person_struct,5). DISPLAY GET-STRING(name,1) FORMAT "x(50)".

Notes

SET-POINTER-VALUE is particularly useful when accessing Windows Dynamic Link Library (DLLs) or UNIX shared library routines from the 4GL. For more information on DLLs, see the chapter on DLLs in OpenEdge Development: Programming Interfaces .
For more information on the MEMPTR data type, see OpenEdge Development: Programming Interfaces .

See also

GET-POINTER-VALUE function, SET-SIZE statement